First_Capital_Pos


Purpose   Returns the character positon of the first capital letter.

Decln.    First_Capital_Pos(Str:string):byte;

Returns   Byte

Remarks   Str is the source string.

          0 is returned if the string does not contain a capital letter.

Example

VAR
  P : BYTE;
BEGIN
    P := FIRST_CAPITAL_POS('3 LOAD');
END;

The variable P is assigned the value 3.